-- background: 13605 from stack: in
-- bmap block id: 15002
-- flags: 0000
-- background id: 0
-- name: Course Details tabs
----- HyperTalk script -----
on openBackground
  global checkLoc1,checkLoc2,checkLoc3
  put 1 into checkLoc1
  put 1 into checkLoc2
  put 1 into checkLoc3
end openBackground

on doMenu menuItem
  lock screen
  if menuItem contains "About" then
    resetFields
    restoreMenuBar
    go to card "Course Details" of background "About"
    unlock screen with zoom close
  else if menuItem is "Home" then
    resetFields
    restoreMenuBar
    go home
    unlock screen
  else if menuItem contains "Quit" then
    resetFields
    restoreMenuBar false
    go to card "Mac School® Shell"
    unlock screen with zoom close
  end if
end doMenu

on resetFields
  lock screen
  set cursor to watch
  push card
  go to first card of this background -- General tab
  repeat with fieldNum = 1 to 3
    put empty into card field fieldNum
  end repeat
  repeat with buttonNum = 1 to the number of buttons
    set hilite of button buttonNum to false
  end repeat
  put "NA" into card field "Department"
  put "0" into card field "Sequence #"
  put "0" into card field "EFT"
  put "0.000" into card field "Warp Factor 1"
  put "0.000" into card field "Warp Factor 2"
  put "Table 1" into card field "Points & Credits"
  put "NA" into card field "Grade"
  put "0.000" into card field "Credits"
  go to next card -- Scheduler tab
  repeat with fieldNum = 1 to the number of card fields
    put empty into card field fieldNum
  end repeat
  repeat with buttonNum = 1 to the number of buttons
    set hilite of button buttonNum to false
  end repeat
  set hilite of button "Co-ed" to true
  go to next card -- Periods tab
  set icon of button "Extra Monday" to "Md Unchecked Box"
  set icon of button "Extra Tuesday" to "Md Unchecked Box"
  set icon of button "Extra Wednesday" to "Md Unchecked Box"
  set icon of button "Extra Thursday" to "Md Unchecked Box"
  set icon of button "Extra Friday" to "Md Unchecked Box"
  repeat with buttonNum = 1 to 50
    if "id" is in name of button id buttonNum then
      set hilite of button id buttonNum to false
    else
      set hilite of button id buttonNum to true
    end if
  end repeat
  repeat with buttonNum = 58 to 60
    set hilite of button id buttonNum to false
  end repeat
  repeat with fieldNum = 1 to 3
    put empty into card field fieldNum
  end repeat
  go to next card -- Lists prerequisites tab
  put "None" into card field "Prerequisites"
  go to next card -- Lists co-requisites tab
  put "None" into card field "Co-requisites"
  go to next card -- Lists rooms tab
  put "Any room" into card field "Rooms"
  go to next card -- Lists programs tab
  repeat with buttonNum = 4 to the number of buttons
    set icon of button buttonNum to "Md Unchecked Box"
  end repeat
  go to next card -- Comments tab
  put empty into card field 1
  pop card
  unlock screen
end resetFields



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=32 top=30 right=51 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CD General
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    go to card short name of me
  end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=121 top=30 right=51 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CD Scheduler
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    if card field "Course Name" of first card of this background is not empty then
      put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
    else put "(not set)" into field "Working On"
    unlock screen
    tabKey
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=208 top=30 right=51 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CD Periods
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    if card field "Course Name" of first card of this background is not empty then
      put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
    else put "(not set)" into field "Working On"
    unlock screen
    tabKey
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=296 top=30 right=51 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CD Lists
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    set the scroll of card field "Course Pool" to 0
    if card field "Course Name" of first card of this background is not empty then
      put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
    else put "(not set)" into field "Working On"
    unlock screen
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=30 right=51 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CD Comments
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    if card field "Course Name" of first card of this background is not empty then
      put card field "Course Name" of first card of this background & " - " & card field "Grade" of first card of this background into field "Working On"
    else put "(not set)" into field "Working On"
    unlock screen
    tabKey
  end if
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=143 top=303 right=326 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=266 top=304 right=325 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  lock screen
  resetFields
  pop card
  unlock screen
end mouseUp



-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=113 top=57 right=75 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Working On